home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / ls 7 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  714b  |  42 lines
  1. 100 REM SPRITE 0 BEWEGEN + ANIMIEREN
  2. 110 REM
  3. 120 REM VORBEREITUNGEN
  4. 130 REM
  5. 140 REM FARBEN
  6. 150 POKE 53280,5:POKE53281,0
  7. 160 POKE 53285,8:POKE53286,11:POKE53287,7
  8. 170 REM
  9. 180 XREG=53248:XLAUF=53264
  10. 190 YREG=53249:BL=128
  11. 200 REM
  12. 210 POKE53276,1:REM SPRITE 0 MULTICOLOR
  13. 220 POKE2040,BL:REM SPRITEZEIGER AUF DATEN
  14. 230 POKEXREG,0:POKEXLAUF,0:POKEYREG,117:REM ANFANGSPOS.
  15. 240 POKE 53269,1:REM SPRITE 0 AN
  16. 250 GOSUB470:REM BODEN ZEICHNEN
  17. 260 REM
  18. 270 REM SPRITE BEWEGEN
  19. 280 REM
  20. 290 FORX=1TO350STEP2
  21. 300 XP=X
  22. 310 IF XP<=255 THEN POKE XLAUF,0
  23. 320 IF XP>255 THEN POKE XLAUF,1:XP=XP-255
  24. 330 POKE XREG,XP
  25. 340 GOSUB400:REM ANIMATION
  26. 350 NEXT X
  27. 360 GOTO230
  28. 370 REM
  29. 380 REM ANIMATION
  30. 390 REM
  31. 400 BL=BL+1
  32. 410 IFBL>135THENBL=128
  33. 420 POKE2040,BL
  34. 430 RETURN
  35. 440 REM
  36. 450 REM BODEN ZEICHNEN
  37. 460 REM
  38. 470 PRINT"[147]";
  39. 480 FORW=1TO40:PRINT" ";:NEXTW
  40. 490 PRINT"[146]"
  41. 500 RETURN
  42.